home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-07-28 | 1.6 KB | 71 lines | [TEXT/MPS ] |
- *
- * Driver interface for a DSAM.
- *
- * Written by: Gavin Eadie • The University of Michigan Information Systems
- * Phone: (313) 936-0816
- * AppleLink: A67
- * Internet: Gavin.Eadie@umich.edu
- *
- * History: Oct22/91 - Started (Gav)
- * Oct31/91 - Some cleanup .. Start to use structured macros.
- * Aug24/92 - OCE alpha 8 interface -- no Control calls.
- * Sep09/92 - remove all reference to 'dixie' -- make generic.
- * Sep11/92 - add dNeedTime for periodic time allowance ... (Gav).
- * Jan21/93 - extend periodic time to 5 seconds ... (Gav).
- * Feb07/94 - extend periodic time to 10 seconds ... (Gav).
-
- Case OBJ
- Print OFF
- Include 'Traps.a'
- Include 'SysEqu.a'
- Load 'ProgStrucMacs.d'
- Load 'FlowCtlMacs.d'
- Print ON
-
- Macro
- DefinedString
- GBLC &FILENAME
- DC.B '.&FILENAME'
- EndM
-
- IMPORT CSAM_Open,CSAM_Close,CSAM_Prime,CSAM_Control,CSAM_Status
-
- Export Procedure CSAM_Entry
-
- Begin
-
- DC.B (1<<dNeedTime) | (1<<dNeedLock) | (1<<dCtlEnable)
- DC.B 0
- DC.W 600 ; once every 10 seconds
- DC.W 0
- DC.W 0
- DC.W Do_Open-CSAM_Entry
- DC.W Do_Prime-CSAM_Entry
- DC.W Do_Control-CSAM_Entry
- DC.W Do_Status-CSAM_Entry
- DC.W Do_Close-CSAM_Entry
-
- DefinedString ; brings in &defined string
-
- Do_Open LEA CSAM_Open,A2
- BRA.S CallIt
-
- Do_Prime LEA CSAM_Prime,A2
- BRA.S CallIt
-
- Do_Control LEA CSAM_Control,A2
- BRA.S CallIt
-
- Do_Status LEA CSAM_Status,A2
- BRA.S CallIt
-
- Do_Close LEA CSAM_Close,A2
-
- CallIt MOVE.L A1,-(A7)
- MOVE.L A0,-(A7)
- JSR (A2)
- ADDQ.W #$8,A7
-
- Return
-
- End